home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / MSD-DU15.ARC / DISK UNPROTECT (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  432 b   |  17 lines
  1. 100 PRINT"[147]DISK UNPROTECTED"
  2. 110 OPEN15,8,15:PRINT#15,"I0":OPEN2,8,2,"#"
  3. 120 PRINT#15,"U1:";2;0;18;0:GOSUB190
  4. 130 PRINT#15,"B-P:";2;2:PRINT#2,CHR$(65);:GOSUB190
  5. 140 PRINT#15,"B-P:";2;166:PRINT#2,CHR$(65);:GOSUB190
  6. 142 PRINT#15,"M-R"CHR$(00)CHR$(192)CHR$(1)
  7. 144 GET#15,A$:PRINTASC(A$):IF A$<>"2" THEN 150
  8. 146 PRINT#15,"M-W"CHR$(136)CHR$(76)CHR$(1)CHR$(65)
  9. 148 GOTO 170
  10. 150 PRINT#15,"M-W"CHR$(1)CHR$(1)CHR$(1)CHR$(65)
  11. 160 PRINT#15,"M-W"CHR$(2)CHR$(7)CHR$(1)CHR$(65)
  12. 170 PRINT#15,"U2:";2;0;18;0:GOSUB190
  13. 180 CLOSE2:PRINT#15,"I0":CLOSE15:END
  14. 190 INPUT#15,EN,EM$,ET,ES
  15. 200 IFENTHENPRINTEN,EM$,ET,ES:STOP
  16. 210 RETURN
  17.